﻿Imports System.Data.SqlClient, System.Globalization
Public Class TutorAD


    Public Function fBuscarTutor() As List(Of TutorEN)
        Dim lTutores As List(Of TutorEN) = New List(Of TutorEN)
        Dim objTutorLeido As TutorEN

        'Instanciamos un objeto de la clase ConexionBD
        Dim cnx As New ConexionBD
        'Se crea la sentencia SQL que en este caso es un STORE PROCEDURE 
        Dim strSql As String = "exec sp_BUSCAR_TUTOR "
        'Creamos un conexión a la BD"
        Dim cnx_1 As SqlConnection
        cnx_1 = cnx.obtenerCnx()
        Dim cmd As New SqlCommand(strSql, cnx_1)
        Dim myreader As SqlClient.SqlDataReader = cmd.ExecuteReader()

        If myreader.HasRows Then
            While (myreader.Read())
                objTutorLeido = New TutorEN
                objTutorLeido.NombreTutor = myreader.GetString(0)
                objTutorLeido.ApePaternoTutor = myreader.GetString(1)
                objTutorLeido.ApeMaternoTutor = myreader.GetString(2)
                lTutores.Add(objTutorLeido)
            End While
        Else
            MsgBox("Se presentaron problemas al cargar los tutores ", MsgBoxStyle.Information, "Error")
        End If
        myreader.Close()
        cnx_1.Close()
        Return lTutores
    End Function
End Class
